home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / PG / RKEY31TP.ZIP / DEMOAPPD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-06-05  |  1.9 KB  |  50 lines
  1. { DemoAppD - Turbo Pascal/DOS version of the RegKey demonstration program.    }
  2. {            Demonstrates the use of file-based registration key validation   }
  3. {            within a program using the RegKey system. Displays one of two    }
  4. {            simple messages based upon whether or not the user is            }
  5. {            registered. To test in registerd mode, use KeyGen to generate    }
  6. {            a *.KEY registration key file for DemoApp, and place that file   }
  7. {            in the current default directory. To test in unregistered mode   }
  8. {            remove any valid *.KEY files from the current default directory. }
  9.  
  10. program DemoAppD;
  11.  
  12. uses RegKeyD;             { This must be included in any program using RegKey }
  13.  
  14. var
  15.    RegisteredMode      : RKValid;      { Variable to store mode to operate in }
  16.    RegistrationString  : string[255];      { To store name of registered user }
  17.  
  18.  
  19. begin
  20.  
  21.    { Check for a valid registration key file }
  22.  
  23.    RegKeyFileValidate('*.KEY',            { Filespec of registration key file }
  24.                       '0C9HMN1NDL',           { Application's validation code }
  25.                       'Your Name', 0,         { Your RegKey registration info }
  26.                       RegistrationString,  { Where reg. string will be placed }
  27.                       255,                      { Maximum size of reg. string }
  28.                       RegisteredMode);  { Where to store result of validation }
  29.  
  30.  
  31.    if RegisteredMode = RKRegistered then
  32.    begin
  33.  
  34.       { If we are operating in registered mode, display registered message }
  35.  
  36.       WriteLn('DemoApp is registered to: ', RegistrationString);
  37.       WriteLn('Thanks for registering DemoApp!');
  38.  
  39.    end
  40.    else
  41.    begin
  42.  
  43.       { If we are operating in UNregistered mode, display UNregistered message }
  44.  
  45.       WriteLn('DemoApp is NOT registered');
  46.       WriteLn('Please remember to register DemoApp!');
  47.    end
  48.  
  49. end.
  50.